/*
+----------------------------------------------------------------------------+
!                             FICHA TECNICA DO PROGRAMA                      !
+----------------------------------------------------------------------------+
!Programa          ! REI34G01                                                !
+------------------+---------------------------------------------------------+
!Descricao         ! Gatilho contabilizacao quando nao existe rateio         !
!                  !                                                         !
+------------------+---------------------------------------------------------+
!Autor             ! Reivax - DFR - Danilo F. Ramos                          !
+------------------+---------------------------------------------------------+
!Data de Criacao   ! 21/07/10                                                !
+------------------+---------------------------------------------------------+
!   ATUALIZACOES                                                             !
+-------------------------------------------+-----------+-----------+--------+
!   Descricao detalhada da atualizacao      !Nome do    ! Analista  !Data da !
!                                           !Solicitante! Respons.  !Atualiz.!
+-------------------------------------------+-----------+-----------+--------+
!                                           !           !           !        !
!                                           !           !           !        !
!                                           !           !           !        !
+-------------------------------------------+-----------+-----------+--------+
!                                           !           !           !        !
!                                           !           !           !        !
+-------------------------------------------+-----------+-----------+--------+
*/

USER FUNCTION REI34G01()

Local nValor := 0

IF (SD1->D1_RATEIO <> "1" .AND. SF4->F4_ZCONTAB == "S")
	IF (SUBSTR(SD1->D1_CF,1,1)=="3")
		nValor := SD1->D1_TOTAL+SD1->D1_VALIPI+SD1->D1_VALFRE+SD1->D1_SEGURO+SD1->D1_DESPESA+SD1->D1_VALIMP5+SD1->D1_VALIMP6-SD1->D1_VALDESC
	Else
		nValor := SD1->D1_TOTAL+SD1->D1_VALIPI+SD1->D1_VALFRE+SD1->D1_SEGURO+SD1->D1_DESPESA-SD1->D1_VALDESC
	EndIf
EndIf

Return nValor  